home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / funfont2.3 / bin / amirc / rexx / funfont.amirx next >
Text File  |  1981-05-07  |  10KB  |  145 lines
  1. /* $VER: FunFont.AMIRX 1.1 (30.04.97) FunFont script for AmIRC
  2. \\ Written  by Robert Grimm  IRC: Rraz
  3. // Modified by Andrew Bailey IRC: Carbon
  4. \\
  5. // USAGE: /RX FunFont <text> \XXX <text> \XXX ...etc
  6. \\
  7. // Where \XXX is a FunFont graphic code (ie: \SML = SmileGFX)
  8. \\
  9. // Put this script in AMIRC:Rexx/ and add as an ALIAS with the
  10. \\ command: "/ALIAS * /RX FunFont %p"
  11. //
  12. \\ You may of course alias this script to any character instead of "*"
  13. */
  14. Parse arg args
  15. a = Pos('\',args)
  16. If a > 0 then
  17. Do until a = 0
  18.  type = substr(upper(args),a+1,3)
  19.  Select
  20.   When type = 'DOG' then effect = '1'   /* DOGSH*T                        */
  21.   When type = 'BLD' then effect = '2'   /* BOLD ON/OFF                    */
  22.   When type = 'NSY' then effect = '4'   /* NOSEY (USE "-" EITHER SIDE)    */
  23.   When type = 'SWR' then effect = '5'   /* SWEAR                          */
  24.   When type = 'MOF' then effect = '6'   /* MALE OR FEMALE (POINT TO M/F)  */
  25.   When type = 'HI!' then effect = '7'   /* SAME AS HII + SYSTEMBEEP       */
  26.   When type = 'PRK' then effect = '8'   /* PRICK                          */
  27.   When type = 'NOT' then effect = '11'  /* NOT! (SEE WAYNE'S WORLD)       */
  28.   When type = 'PR8' then effect = '12'  /* PIRATE (SKULL & CROSSBONES)    */
  29.   When type = 'STA' then effect = '13'  /* STAR                           */
  30.   When type = 'CLK' then effect = '14'  /* CLOCK                          */
  31.   When type = 'TVE' then effect = '16'  /* TELEVISION                     */
  32.   When type = 'MIC' then effect = '17'  /* MICKEY MOUSE                   */
  33.   When type = 'KBD' then effect = '18'  /* KEYBOARD (COMPUTER)            */
  34.   When type = 'LEM' then effect = '19'  /* LEMMING (COULD MEAN WAIT)      */
  35.   When type = 'SHP' then effect = '20'  /* SHIP (USE \REV FOR NIGHT)      */
  36.   When type = 'HRS' then effect = '21'  /* HORSE AND CARRIAGE             */
  37.   When type = 'REV' then effect = '22'  /* REVERSE ON/OFF                 */
  38.   When type = 'RRN' then effect = '23'  /* ROAD RUNNER (MEEP MEEP!)       */
  39.   When type = 'EML' then effect = '24'  /* EMAIL                          */
  40.   When type = 'ELE' then effect = '25'  /* ELEPHANT (MEMORY ?)            */
  41.   When type = 'PLT' then effect = '26'  /* PLATE (FOOD ETC)               */
  42.   When type = 'SHK' then effect = '27'  /* SHARK                          */
  43.   When type = 'CAR' then effect = '28'  /* CAR (RACING)                   */
  44.   When type = 'GUN' then effect = '29'  /* GUN (PISTOL)                   */
  45.   When type = 'CUT' then effect = '30'  /* SCISSORS (USE "-" EITHER SIDE) */
  46.   When type = 'UND' then effect = '31'  /* UNDERLINE ON/OFF               */
  47.   When type = 'JNT' then effect = '128' /* JOINT (CHILL OUT MAN!)         */
  48.   When type = 'HLP' then effect = '129' /* HELP                           */
  49.   When type = 'PLN' then effect = '130' /* PLANE (AEROPLANE)              */
  50.   When type = 'BED' then effect = '131' /* BED (Zzzz)                     */
  51.   When type = 'KNB' then effect = '132' /* KNOB (COCK & BALL!)            */
  52.   When type = 'SWT' then effect = '133' /* SWEETS                         */
  53.   When type = 'FTB' then effect = '134' /* FOOTBALL PITCH                 */
  54.   When type = 'DRK' then effect = '135' /* DRINKS (BEER PLEASE!)          */
  55.   When type = 'BAT' then effect = '136' /* BATMAN (SEARCHLIGHT)           */
  56.   When type = 'SNK' then effect = '137' /* SNAKE (REPEATABLE)             */
  57.   When type = 'SSH' then effect = '138' /* SPACE SHUTTLE (ORBITING MOON)  */
  58.   When type = 'DOM' then effect = '139' /* DOOM!                          */
  59.   When type = 'KEY' then effect = '140' /* LOCK & KEY (PRIVATE)           */
  60.   When type = 'COW' then effect = '141' /* COW (SEE DOW)                  */
  61.   When type = 'UFO' then effect = '142' /* UFO (SAUCER)                   */
  62.   When type = 'SPC' then effect = '143' /* SPACE (STARS & MOON)           */
  63.   When type = 'CUP' then effect = '144' /* CUP (TEA OR COFFEE ?)          */
  64.   When type = 'SEX' then effect = '145' /* DOGGIE STYLE!                  */
  65.   When type = 'PNT' then effect = '146' /* POINT THE FINGER               */
  66.   When type = 'GRS' then effect = '147' /* GRASS (SMOKE IT DUDE!)         */
  67.   When type = 'RUN' then effect = '148' /* RUNNING MAN                    */
  68.   When type = 'PIG' then effect = '149' /* PIGGY BANK (MINE IS EMPTY!)    */
  69.   When type = 'PAW' then effect = '150' /* ANIMAL PAWS (REPEATABLE)       */
  70.   When type = 'PHN' then effect = '151' /* TELEPHONE                      */
  71.   When type = 'FLM' then effect = '152' /* FILM (ANIMATION)               */
  72.   When type = 'MSC' then effect = '153' /* MUSIC (MUSIC MOD')             */
  73.   When type = 'CRG' then effect = '154' /* CARRIAGE (TRAIN)(REPEATABLE)   */
  74.   When type = 'TRN' then effect = '155' /* TRAIN (PRECEED WITH CARRIAGES) */
  75.   When type = 'GFX' then effect = '156' /* GRAPHICS                       */
  76.   When type = 'SFX' then effect = '157' /* SOUND SAMPLE                   */
  77.   When type = 'KIS' then effect = '158' /* LIPS (PUCKER UP!)              */
  78.   When type = 'BLB' then effect = '159' /* IDEA (LIGHT BULB)              */
  79.   When type = 'PWR' then effect = '160' /* POWER                          */
  80.   When type = 'TIC' then effect = '161' /* TICK (RIGHT)                   */
  81.   When type = 'CRS' then effect = '162' /* CROSS (WRONG)                  */
  82.   When type = 'HMM' then effect = '164' /* PONDERING OR THINKING          */
  83.   When type = 'YES' then effect = '165' /* YES!                           */
  84.   When type = 'NOO' then effect = '166' /* NO!                            */
  85.   When type = 'HEE' then effect = '167' /* HE! (REPEATABLE)               */
  86.   When type = 'QST' then effect = '168' /* QUESTION                       */
  87.   When type = 'THM' then effect = '170' /* THUMBS UP!                     */
  88.   When type = 'HRT' then effect = '172' /* HEART (LOVE)                   */
  89.   When type = 'HIC' then effect = '173' /* HIC! AS IN DRUNK/STONED (FACE) */
  90.   When type = 'LAF' then effect = '176' /* LAUGH (FACE)                   */
  91.   When type = 'DOH' then effect = '177' /* DOH! (SEE HOMER SIMPSON!)      */
  92.   When type = 'OPS' then effect = '178' /* OPS (DONT ASK FOR IT!)         */
  93.   When type = 'IRC' then effect = '179' /* AMIRC (WHAT A COOL PROGRAM!)   */
  94.   When type = 'TNG' then effect = '180' /* TOUNGE (STICK IT OUT!)(FACE)   */
  95.   When type = 'SML' then effect = '181' /* SMILE (FACE)                   */
  96.   When type = 'SAD' then effect = '182' /* SAD (FACE)                     */
  97.   When type = 'CRY' then effect = '183' /* CRY (FACE)                     */
  98.   When type = 'MAD' then effect = '184' /* MAD (PISSED OFF!)(FACE)        */
  99.   When type = 'SHD' then effect = '185' /* SHADES (COOL/SMIRK)(FACE)      */
  100.   When type = 'OOH' then effect = '186' /* OOH! (SUPRISED)(FACE)          */
  101.   When type = 'WNK' then effect = '188' /* WINK (FACE)                    */
  102.   When type = 'ANS' then effect = '189' /* ANSWER                         */
  103.   When type = 'LOL' then effect = '190' /* LAUGHING OUT LOUD              */
  104.   When type = 'AM1' then effect = '192' /* FIRST PART OF "AMIGA"          */
  105.   When type = 'AM2' then effect = '193' /* SECOND PART OF "AMIGA"         */
  106.   When type = 'BAK' then effect = '194' /* BACK (AS IN "I'M BACK!")       */
  107.   When type = 'FUN' then effect = '195' /* FUNFONT (© CREATIVE DESIGN)    */
  108.   When type = 'LAM' then effect = '196' /* LAME                           */
  109.   When type = 'THX' then effect = '197' /* THANKS                         */
  110.   When type = 'BBL' then effect = '198' /* BE BACK LATER                  */
  111.   When type = 'NOP' then effect = '199' /* NO PROBLEM                     */
  112.   When type = 'ARW' then effect = '201' /* UP ARROW (POINT TO ABOVE TXT)  */
  113.   When type = 'BOO' then effect = '202' /* GHOST                          */
  114.   When type = 'KCK' then effect = '203' /* KICK (BOOT 'EM!)               */
  115.   When type = 'BNG' then effect = '204' /* BANG!                          */
  116.   When type = 'BMB' then effect = '205' /* BOMB                           */
  117.   When type = 'BEL' then effect = '206' /* PING (DELAY CITY!)             */
  118.   When type = 'SLP' then effect = '207' /* SLAP (WITH A WET TROUT!)       */
  119.   When type = 'CRP' then effect = '208' /* CRAP!                          */
  120.   When type = 'OKY' then effect = '215' /* OK (OKAY)                      */
  121.   When type = 'EYE' then effect = '216' /* EYE (USE IN PREDRAWN ASWELL)   */
  122.   When type = 'KWL' then effect = '222' /* COOL!                          */
  123.   When type = 'RFL' then effect = '223' /* ROLL ON THE FLOOR LAUGHING     */
  124.   When type = 'BRB' then effect = '224' /* BE RIGHT BACK!                 */
  125.   When type = 'WBK' then effect = '230' /* WELCOME BACK                   */
  126.   When type = 'FSH' then effect = '237' /* FISH (TROUT ANYONE ?)          */
  127.   When type = 'QU1' then effect = '238' /* QUOTE (``)                     */
  128.   When type = 'QU2' then effect = '239' /* QUOTE ('')                     */
  129.   When type = 'LAG' then effect = '240' /* LAG (NOT AGAIN!)               */
  130.   When type = 'DCC' then effect = '242' /* DCC                            */
  131.   When type = 'HII' then effect = '247' /* HI (LOOKS GOOD REVERSED)       */
  132.   When type = 'BYE' then effect = '248' /* BYE (SEEYA!)                   */
  133.   When type = 'VER' then effect = '220' /* $VERSION                       */
  134.   Otherwise effect = ''
  135.  End
  136.  args = Delstr(args,a,4)
  137.  If effect ~= '' then do
  138.   token = d2c(effect)
  139.   args = Insert(token,args,a-1)
  140.  End
  141.  a = Pos('\',args)
  142. End
  143. 'SAY 'args
  144. Exit
  145.